home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / utilz / pcmespro / adwand.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-01  |  964 b   |  48 lines
  1. Program Adwandler;
  2.  
  3. {/*╔══════════════════════════════════════════════╗*/
  4.  /*║ Adwandler (für Multi I/O- Karte)             ║*/
  5.  /*╠═══════════════════════╦══════════════════════╣*/
  6.  /*║ Coded am: 05.09.1994  ║ Released am: 02.02.96║*/
  7.  /*╠═══════════════════════╬══════════════════════╣*/
  8.  /*║ Beispiel Programm 4   ║ Unit PCmess          ║*/
  9.  /*╚═══════════════════════╩══════════════════════╝*/}
  10.  
  11. uses crt,dos,pcmpro;
  12.  
  13. var adwert : integer;
  14.       
  15.  
  16.  
  17. Procedure adw_wahl (kanal : Integer);
  18. Begin
  19.   Port [770] := kanal; {8 = Kanal 0 - 15 = Kanal 8}
  20. end;
  21.  
  22.  
  23. Procedure adw_abfragen (VAR ADwert : Integer);
  24.  
  25. VAR s : Byte;
  26.  
  27. Begin
  28.  repeat
  29.   s:= Port [771];
  30.   until (s and 128) = 0;
  31.   adwert := port [770];
  32. end;
  33.  
  34.  
  35. Begin
  36.  setvidmode (13);
  37.  bildladen;              { erchaffe Grafische Oberfläche für Darstellung}
  38.  check;
  39.  repeat
  40.   adw_wahl (8);
  41.   adw_abfragen (ADwert);
  42.   graph_zeichnen (ADwert);
  43.  until keypressed;
  44. end.
  45.  
  46.  
  47.  
  48.